home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 July / Ahoy_Magazine_86-07_1986_Double_L.d64 / double wedge 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  250b  |  11 lines
  1. 0 print"[147]":poke53280,4:poke53281,0:poke646,7
  2. 1 print"commodares problem #27-3:"
  3. 2 print"    double wedge"
  4. 3 print"solution by"
  5. 4 print"    john r. prager"
  6. 10 input"phrase ";a$
  7. 20 l=len(a$):b=1 and l:p=2-b
  8. 30 s=int(.5+l/2)
  9. 40 for j=s to 1 step -1
  10. 50 print spc(j-1)mid$(a$,j,p):p=p+2:next
  11.